<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'** 版权所有：烈火工作室 演示网站http://www.strongfire.cn **
'** QQ:839225572 邮箱：strongfire2008@163.com **
'** 非正版用户不得擅自非法修改用于商业用途！查出必究。 **
'****************************************************************
%>
修改友情链接
<%
ID=trim(Request("ID"))
Action=trim(Request("Action"))
name=trim(Request("name"))
url=trim(Request("url"))
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from youqing where ID=" & CLng(ID),conn,1,3
if rs.Bof and rs.EOF then
response.write""
response.End
else
if Action="Modify" then
if Name="" then
response.write""
response.End
end if
rs("Name")=Name
rs("url")=url
rs.update
rs.Close
set rs=Nothing
conn.close
set conn=nothing
Response.Redirect "youqing.asp"
else
%>